home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / Traps.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  3.3 KB  |  140 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Traps.a
  3. ;
  4. ;    Contains:    A-Trap constants.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1985-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__TRAPS__') = 'UNDEFINED' THEN
  19. __TRAPS__ SET 1
  20.  
  21.     IF &TYPE('__CONDITIONALMACROS__') = 'UNDEFINED' THEN
  22.     include 'ConditionalMacros.a'
  23.     ENDIF
  24.  
  25.  
  26. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27. ;
  28. ;         Trap OPWORDS are now defined in each manager    
  29. ;         
  30. ;             Example:
  31. ;            
  32. ;                _GetResource    OPWORD    $A9A0
  33. ;                
  34. ;             is now in the file 'Resources.a'
  35. ;        
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  37.  
  38.  
  39.  
  40. ; 
  41. ;    The floating point traps are needed because SANEMacs.a relies on Traps.a
  42. ;    defining them.  We won't be fixing SANEMacs.a, so putting the traps here
  43. ;     allows developers to use Universal AIncludes more easily.
  44. ;
  45.     IF TARGET_CPU_68K THEN
  46.         UnimplementedTrap:    EQU        $A89F
  47.         _Unimplemented:        OPWORD    $A89F
  48.         _FP68K:                OPWORD    $A9EB
  49.         _Elems68K:            OPWORD    $A9EC
  50.         _DecStr68K:            OPWORD    $A9EE
  51.     ENDIF
  52.  
  53.  
  54.  
  55.     IF TARGET_CPU_68K THEN
  56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57. ;
  58. ;    MoveTrapWord
  59. ;         
  60. ;     This macro allows OPWORDs to be used as parameters to Get/SetTrapAddress.
  61. ;    For examples:
  62. ;
  63. ;            MoveTrapWord    _GetResource,D0        ; ->    Move.w    #$A9A0,D0
  64. ;            _GetToolboxTrapAddress
  65. ;
  66. ;            MoveTrapWord    $A060,D0            ; ->    Move.w    #$A060,D0
  67. ;            _GetOSTrapAddress
  68. ;        
  69. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  70.     Macro
  71.     MoveTrapWord &trap,&dest=D0
  72.         gbla &trapNum
  73.  
  74.         If &trap = '' then
  75.             AError 'must specify trap number or name'
  76.             Exitm
  77.         Elseif &type(&upcase(&trap)) = 'OPWORD' then
  78.             If &findsym(&sysglobal, &upcase(&trap)) then
  79.                 &trapNum: seta &sysvalue
  80.             Elseif &findsym(&syslocal, &upcase(&trap)) then
  81.                 &trapNum: seta &sysvalue
  82.             Else
  83.                 aerror 'internal error in MoveTrapWord (an OPWORD, but not in any symbol table??)'
  84.                 ExitM
  85.             endif
  86.         Else
  87.             &trapNum: seta &eval(&trap)
  88.         Endif
  89.         If ((&trapNum < 0) or (&trapNum > $3FFC)) and ((&trapNum and $F000) ≠ $A000) then
  90.             AError 'not a valid trap number ($A000 - $AFFF)'
  91.             ExitM
  92.         Endif
  93.         move.w    #&trapNum,&dest
  94.     EndM
  95.     ENDIF    ; TARGET_CPU_68K
  96.  
  97.  
  98.  
  99.  
  100.     IF OLDROUTINENAMES THEN
  101. ; 
  102. ; 
  103. ;        The following equates are for compatibility with old option bits
  104. ;        
  105. ;            Example:
  106. ;                    _NewPtr, sys        ; old way
  107. ;        
  108. ;        The new way is to use the C name:
  109. ;        
  110. ;            Examle:
  111. ;                    _NewPtrSys            ; new way
  112. ;
  113. ;
  114.  
  115. ;
  116. ; for Device and File Manager routines 
  117. immed                            EQU        $200                ; execute immediately, bypass I/O queue
  118. async                            EQU        $400                ; asynchronous, don't wait for completion
  119. ;
  120. ; for Memory Manager routines 
  121. clear                            EQU        $200
  122. sys                                EQU        $400
  123. ;
  124. ; for string routines 
  125. marks                            EQU        $200                ; set to ignore/strip diacriticals
  126. Case                            EQU        $400                ; set for case sensitivity        
  127. autoPop                            EQU        $400                ; set to pop an extra return address
  128. ;
  129. ; for Get/Set & NGet/NSet TrapAddress 
  130. newTool                            EQU        $600                ; Toolbox trap, under new ordering
  131. newOS                            EQU        $200                ; OS trap, under new ordering
  132. ;
  133. ; for HFS routines 
  134. newHFS                            EQU        $200
  135.  
  136.     ENDIF    ; OLDROUTINENAMES
  137.  
  138.     ENDIF ; __TRAPS__ 
  139.  
  140.